home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 March & April / rerun-1988-03-04.d64 / char set genrtr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  468 b   |  12 lines
  1. 10 rem character set creator - kenny lawson
  2. 20 x=828:printchr$(142)
  3. 30 reada:ifa=-1then50
  4. 40 pokex,a:x=x+1:goto30
  5. 50 print"[147]poke44,16:poke4096,0:new"
  6. 60 print:print:print"sys828"
  7. 70 poke631,19:poke632,13:poke633,13:poke198,3:new
  8. 80 data 173,14,220,41,254,141,14,220,165,1,41,251,133,1,169,0,133,251,133
  9. 90 data 253,169,8,133,252,169,208,133,254,162,0,160,0,177,253,145,251,200
  10. 100 data 208,249,230,252,230,254,232,224,8,208,238,165,1,9,4,133,1,173,14
  11. 110 data 220,9,1,141,14,220,173,24,208,41,240,9,2,141,24,208,96,-1
  12.